home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / aweb30demo / steuerung < prev    next >
AmigaDOS Script File  |  1992-09-17  |  4KB  |  155 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. if "[param]" EQ "install"
  25.     set vinstall 1
  26. endif
  27. set binfo        1
  28. set bcopy        1
  29. set bassign      1
  30. set bunassign    1
  31. set bstart       1
  32. set binstall     1
  33.  
  34.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  35.     set nummer 0
  36.     if $binfo EQ 1
  37.          echo >>t:tmpsteuerung " Info" NOLINE
  38.          set nummer `eval $nummer + 1`
  39.          set ninfo $nummer
  40.     endif
  41.     if $bcopy EQ 1
  42.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  43.          set nummer `eval $nummer + 1`
  44.          set ncopy $nummer
  45.     endif
  46.     if $bassign EQ 1
  47.          echo >>t:tmpsteuerung " Assign" NOLINE
  48.          set nummer `eval $nummer + 1`
  49.          set nassign $nummer
  50.     endif
  51.     if $bunassign EQ 1
  52.          echo >>t:tmpsteuerung " Unassign" NOLINE
  53.          set nummer `eval $nummer + 1`
  54.          set nunassign $nummer
  55.     endif
  56.     if $bstart EQ 1
  57.          echo >>t:tmpsteuerung " Start" NOLINE
  58.          set nummer `eval $nummer + 1`
  59.          set nstart $nummer
  60.     endif
  61.     if $binstall EQ 1
  62.          echo >>t:tmpsteuerung " Installieren" NOLINE
  63.          set nummer `eval $nummer + 1`
  64.          set ninstall $nummer
  65.     endif
  66.     if "[param]" EQ ""
  67.         echo >>t:tmpsteuerung " Ende" NOLINE
  68.         execute >nil: t:tmpsteuerung
  69.         delete >nil: t:tmpsteuerung
  70.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  71.         if $reqerg[$$] EQ 0
  72.             skip Ende
  73.         endif
  74.     endif
  75.     if $reqerg[$$] EQ $ninfo
  76.         set vinfo 1
  77.     endif
  78.     if $reqerg[$$] EQ $ncopy
  79.         set vcopy 1
  80.     endif
  81.     if $reqerg[$$] EQ $nassign
  82.         set vassign 1
  83.     endif
  84.     if $reqerg[$$] EQ $nunassign
  85.         set vunassign 1
  86.     endif
  87.     if $reqerg[$$] EQ $nstart
  88.         set vassign 1
  89.         set vstart 1
  90.         set vunassign 1
  91.     endif
  92.     if $reqerg[$$] EQ $ninstall
  93.         set vinstall 1
  94.     endif
  95. endif
  96.  
  97. if $vinfo EQ 1
  98. ;>>>>>>>> Hier Infotext eintragen
  99.     :c/Metatool :Software/aweb30demo/ReadMe FT=TEXT
  100. endif
  101. if $vassign EQ 1
  102. ;>>>>>>>> Hier steht das Assign
  103.     Assign >nil: Fonts: :Software/aweb30demo/fonts add
  104.     if $vstart NOT EQ 1
  105.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  106.     endif
  107. endif
  108. if $vstart EQ 1
  109. ;>>>>>>>> Hier steht das Startprogramm
  110.     cd :Software/aweb30demo/Aweb
  111.     :Software/aweb30demo/AWeb
  112. endif
  113. if $vunassign EQ 1
  114. ;>>>>>>>> Hier steht das Unassign
  115.     Assign >nil: Fonts: :Software/aweb30demo/fonts remove
  116.     if $vstart NOT EQ 1
  117.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  118.     endif
  119. endif
  120. if $vcopy EQ 1
  121.     execute :c/Verzeichniskopieren ":Software/aweb30demo/" "aweb30demo" 1009664
  122. endif
  123. if $vinstall EQ 1
  124. ;>>>>>>>> Hier Install-Skript eintragen
  125.     assign l: :l add
  126.     cd >nil: :Software/aweb30demo/
  127.     :c/WBstarter >nil: :Software/aweb30demo/Install
  128.     assign l: :l remove
  129.     skip Ende
  130. endif
  131.  
  132. unset binfo
  133. unset vinfo
  134. unset ninfo
  135. unset bassign
  136. unset bunassign
  137. unset vassign
  138. unset vunassign
  139. unset nassign
  140. unset nunassign
  141. unset bstart
  142. unset vstart
  143. unset nstart
  144. unset binstall
  145. unset vinstall
  146. unset ninstall
  147. unset bcopy
  148. unset vcopy
  149. unset ncopy
  150. if "[param]" EQ ""
  151.     execute Steuerung
  152. endif
  153. LAB Ende
  154. unsetenv reqerg[$$]
  155.